home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / tori / sharedi.cst / 03032_Script_3032 < prev    next >
Text File  |  1983-01-27  |  1KB  |  44 lines
  1. on DIDA  _direz, _beep
  2.   --  global si_text,si_name,si_numero_linee,si_pos,si_copia_video
  3.   --  
  4.   --  if the number of lines in the text of member si_text of castLib si_name  - si_numero_linee  > 0 then
  5.   --    duplicate member si_text of castLib si_name, member 500 of castLib "internal"
  6.   --  else
  7.   --    exit
  8.   --  end if
  9.   --  
  10.   --  if _direz = "su" then
  11.   --    if si_pos > 1 then
  12.   --      set si_pos to si_pos - 1
  13.   --      delete line 1 to si_pos of member 500 of castLib "internal"
  14.   --    else
  15.   --      set si_pos to 1
  16.   --      if _beep = "sibeep" then beep
  17.   --    end if
  18.   --  end if
  19.   --  
  20.   --  if _direz = "giu" then
  21.   --    if si_pos < the number of lines in the text of member si_text of castLib si_name  - si_numero_linee  then
  22.   --      set si_pos to si_pos + 1
  23.   --    else
  24.   --      set si_pos to the number of lines in the text of member si_text of castLib si_name - si_numero_linee
  25.   --      if _beep = "sibeep" then beep
  26.   --    end if
  27.   --      delete line 1 to si_pos of member 500 of castLib "internal"
  28.   --  end if
  29.   --      duplicate member 500 of castLib "internal", member si_copia_video of castLib "internal"
  30.   
  31.   global si_copia_video
  32.   if _direz="su" then
  33.     scrollByLine member si_copia_video of castLib "Internal", -1
  34.   end if
  35.   if _direz="giu" then
  36.     scrollByLine member si_copia_video of castLib "Internal" ,  1
  37.   end if
  38.   
  39. end
  40.  
  41.  
  42.  
  43.  
  44.